home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1998 January
/
Macworld (1998-01).dmg
/
Serious Demos
/
Visual MacStandardBasic Demo
/
Samples
/
MultiForm Demo
/
Form3
< prev
next >
Wrap
Text File
|
1997-09-30
|
2KB
|
98 lines
MacStandardBasic Form Version 3.0
FormBegin
Name=Form3
Title=Form3
Left=216
Top=55
Width=339
Height=156
Sub Proc.=None
Visible=1
Style=5
Enabled=1
Font=Geneva
FontSize=12
FontStyle=0
Show Grid=1
Grid Snap=1
Grid Size=8
Min. Width=100
Max. Width=2000
Min. Height=100
Max. Height=2000
AutoCenter=0
ForeColor=0 0 0
BackColor=40824 14419 65535
FormEnd
ControlBegin=TextBox
Name=TextBox1
Text=TextBox1
Left (x)=48
Top (y)=24
Width=232
Height=24
Sub Proc.=None
Visible=1
Value=1
Enabled=1
Font=Geneva
FontSize=12
FontStyle=0
ScrollBar=0
Read Only=0
Tab Index=1
Opt20=1
Frame=1
ForeColor=0 0 0
BackColor=65535 65535 65535
ControlEnd
ControlBegin=Button
Name=Button1
Text=Set TextBox in Form 1
Left (x)=48
Top (y)=64
Width=233
Height=33
Sub Proc.=Button1_Click
Visible=1
Value=0
Enabled=1
Opt20=1
ControlEnd
ControlBegin=Button
Name=Button2
Text=Set TextBox in Form2
Left (x)=48
Top (y)=112
Width=233
Height=33
Sub Proc.=Button2_Click
Visible=1
Value=0
Enabled=1
Opt20=2
ControlEnd
Sub Button1_Click( )
If CtlExist(Form1.TextBox1) then
CtlText Form1.TextBox1, "Set by Form3", 0
EndIf
EndSub
Sub Button2_Click( )
If CtlExist(Form2.TextBox1) then
CtlText Form2.TextBox1, "Set by Form3", 0
EndIf
EndSub